home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
e
/
rxobj.lha
/
rxobj_examples
/
rxobj_example.e
< prev
Wrap
Text File
|
1995-10-29
|
479b
|
32 lines
MODULE 'Fabio/rxobj_oo'
DEF quit = FALSE
PROC main()
DEF rx:PTR TO rxobj
DEF rxsig
DEF sig
NEW rx.rxobj('FabioSoft')
WriteF('Host: "FabioSoft" Alive AND Kicking!\n')
WriteF('Send a QUIT message TO the port!\n')
rxsig:=rx.signal()
REPEAT
sig:=Wait(rxsig)
rx.get({parse})
UNTIL quit=TRUE
WriteF('This is the end...\n')
END rx
ENDPROC
PROC parse(t)
WriteF('Parsing:\s\n', t)
IF StrCmp(t, 'QUIT')
quit:= TRUE
ENDIF
ENDPROC TRUE, 0,NIL